﻿Public Class Form1
  Private Sub DateTimePicker1_ValueChanged( _
          ByVal sender As System.Object, _
          ByVal e As System.EventArgs) _
          Handles DateTimePicker1.ValueChanged
    Dim data As DateTime
    data = Me.DateTimePicker1.Value
    Me.TextBox1.Text = _
        data.ToString("dd/MM/yyyy")
    Me.TextBox2.Text = _
        data.ToString("ddd dd/MM/yyyy")
    Me.TextBox3.Text = _
        data.ToString("dd MMM yyyy")
    Me.TextBox4.Text = _
        data.ToString("ddd dd MMM yyyy")
    Me.TextBox5.Text = _
        data.ToString("dd MMMM yyyy (dddd)")
  End Sub
End Class

